Различия
Здесь показаны различия между двумя версиями данной страницы.
| Предыдущая версия справа и слева Предыдущая версия Следующая версия | Предыдущая версия | ||
|
sensors:p:amp_simakin [2018/11/16 13:25] admin |
sensors:p:amp_simakin [2018/11/16 13:53] (текущий) admin |
||
|---|---|---|---|
| Строка 68: | Строка 68: | ||
| df1<-data.frame(Name='Summary', P_max=Pmax,P_mean=Pmean,comment=comm,n_points=n1,end=' '); | df1<-data.frame(Name='Summary', P_max=Pmax,P_mean=Pmean,comment=comm,n_points=n1,end=' '); | ||
| - | df2<-data.frame(Name=Amp$Name, P_max=P,P_mean=' ',comment=' ',n_points=' ',end=' '); | + | df2<-data.frame(Name=Amp$Name, P_max=P,P_mean=0.0,comment=' ',n_points=' ',end=' '); |
| - | df0<-data.frame(Name='_', P_max='_',P_mean='_',comment='_',n_points=' ',end=' '); | + | df0<-data.frame(Name='_', P_max=0.0,P_mean=0.0,comment='_',n_points=' ',end=' '); |
| return (rbind(df1,df0,df2)); | return (rbind(df1,df0,df2)); | ||
| Строка 95: | Строка 95: | ||
| CaO_wtp=c(11.490, 11.490), Na2O_wtp=c(1.870, 1.870), | CaO_wtp=c(11.490, 11.490), Na2O_wtp=c(1.870, 1.870), | ||
| K2O_wtp=c(1.060, 1.060)); | K2O_wtp=c(1.060, 1.060)); | ||
| - | | ||
| - | print(test_data); | ||
| | | ||
| #Расчет | #Расчет | ||
| Строка 102: | Строка 100: | ||
| print(result); | print(result); | ||
| - | | ||
| - | print(result[1,]); | ||
| - | | ||
| - | print(result[1,]$P_mean); | ||
| - | | ||
| | | ||
| #Проверка соответствия результат заданному значению | #Проверка соответствия результат заданному значению | ||