# NOT RUN {
df <- data.frame(a=c(1,2,3),
b=c('m','f','m'),
c=c(0.7,1.4,2.4),
d=c(100,250,200),
e=c(400,500,505))
dfResult <- calculateSDChanges(dfOriginal = df,
rowNum = 2,
numColLeaveOut = c('d','e'),
sizeOfSDPerturb = 0.5)
dfResult
# }
Run the code above in your browser using DataLab