Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
Generate numbers based on mean and stdev
#Insert numbers to be generated n<- 20 #Insert Mean mean<- 10 #Insert RSD rsd<- 3 #Calculate SD sd<-rsd*mean/100 #Generate Numbers rnorm2 <- function(n,mean,sd) { as.numeric(mean+sd*scale(rnorm(n))) } Numbers <- rnorm2(n,mean,sd) #Printout results paste("The set mean was: ", mean, " and the actual generated is: ", mean(Numbers)) paste("The set RSD was: ", rsd, " and the actual generated is: ", 100*sd(Numbers)/mean(Numbers)) paste("The set SD was: ", sd, " and the actual generated is: ", sd(Numbers)) paste("The ",n," generated data points are shown below") data.frame(Numbers)
run
|
edit
|
history
|
help
0
Hiring Discrimination
Desktop-Sprite-image-Interval
direct_assignment
Gab1A(resumido)
Graph
Paired t-test_Unequal variances [Pipeline Networks]
R1
24-08-2020-GradConj
19-08-2020-GaussSeidelSistema-menos-calc
Quiz 2