Run Code
|
API
|
Code Wall
|
Users
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Blog
lab1
dat<-read.table(file="stdin", sep=",") dat y<-t(dat) y # строю дискретный вариационный ряд a<-table(y) a f<-as.data.frame(a) f # f[,3] значения частотости f[,3]<- 100*a/(sum(a)) f # кумулятивная сумма f[,4]<- cumsum(a) f # кумулятивная сумма f[,5]<- cumsum(100*a/(sum(a))) f colnames(f)<-c("value","frequency","frequency of occurrence","cumulative frequency", "cumulative frequency of occurrence") f # Полигон частот plot(a,type="l",main="frequency polygon",xlab="value", ylab="frequency") d<-as.numeric(y) d v<-sort(d) v x<-unique(v) x y<-as.numeric(f[,4]) y plot(x,as.numeric(f[,4]),type="l",xlab="value",ylab="cumulative frequency", main= "absolute frequency cumulative percentage curve") y<-as.numeric(f[,5]) y plot(x,as.numeric(f[,5]),type="l",xlab="value",ylab="cumulative frequency of occurrence", main= "relative frequency cumulative percentage curve")
run
|
edit
|
history
|
help
0
Please
log in
to post a comment.
Análise de experimento em DIC e teste de Tukey
(.)(.)
16-09-2020ExPedro
Mathematical operations 1
Practice
Why is height normal
Distribution stable under iteration
(.)(.)
Ex21-01-21
Phyllotaxis in R
Please log in to post a comment.