Agua destilada

DWk_LM=c(0.703209727856852,0.703209727856141,0.703209727855760,0.703209727853999,0.703209727855055,0.703209727856459,0.703209727857003,0.703209727856379,0.703209727857552,0.703209727856438,0.703209727856291,0.703209727855175,0.703209727856118,0.703209727855634,0.703209727854907,0.703209727855073,0.703209727857835,0.703209727857309,0.703209727855841,0.703209727856465,0.703209727859093,0.703209727856283,0.703209727854421,0.703209727855890,0.703209701500095,0.703209693316960,0.703209727857569,0.703209727857550,0.703209727853986,0.703209727856961,0.703209727856435,0.703209727855483,0.703209727854978,0.703209727858322,0.703209727854622,0.703209727855646,0.703209670143236,0.703209727856527,0.703209727855500,0.703209727857665,0.703209727856593,0.703209727855196,0.703209727857244,0.703209727854574,0.703209727856636,0.703209727855807,0.703209727857218,0.703209727853880,0.703209727854127)
DWk_LM=sort(DWk_LM)
DWk_LM=DWk_LM[4:49]
#index_outliers=which(DWk_LM,%in%,c(boxplot.stats(DWk_LM)$out))
#DWk_LM=DWk_LM[-c(index_outliers)]
shapiro.test(DWk_LM)
## 
##  Shapiro-Wilk normality test
## 
## data:  DWk_LM
## W = 0.98496, p-value = 0.8089
qqnorm(DWk_LM)
qqline(DWk_LM)

boxplot(DWk_LM)

#boxplot(DWk_LM, outline=FALSE)
#summary(DWk_LM)
#t.test(DWk_LM, conf.level=0.95)$conf.int
DWk_GN=c(0.703209727861407,0.703209727861420,0.703209727861348,0.703209727861456,0.703209727861424,0.703209727861405,0.703209727861419,0.703209727861403,0.703209727861445,0.703209727861322,0.703209727861346,0.703209727861443,0.703209727861369,0.703209727861426,0.703209727861434,0.703209727861375,0.703209727861465,0.703209727861371,0.703209727861347,0.703209727861377,0.703209727861383,0.703209727861524,0.703209727861411,0.703209727861423,0.703209727861422,0.703209727861443,0.703209727861316,0.703209727861408,0.703209727861367,0.703209727861440,0.703209727861405,0.703209727861448,0.703209727861403,0.703209727861404,0.703209727861384,0.703209727861399,0.703209727861392,0.703209727861448,0.703209727861474,0.703209727861388,0.703209727861417,0.703209727861500,0.703209727861360,0.703209727861454,0.703209727861362,0.703209727861434,0.703209727861378,0.703209727861422,0.703209727861375)
shapiro.test(DWk_GN)
## 
##  Shapiro-Wilk normality test
## 
## data:  DWk_GN
## W = 0.9888, p-value = 0.9191
qqnorm(DWk_GN)
qqline(DWk_GN)

boxplot(DWk_GN)

#boxplot(DWk_LM, outline=FALSE)
boxplot(DWk_LM,DWk_GN, outline=FALSE)

DWm_LM=c(7.63155807838202,7.63155807835514,7.63155807834078,7.63155807827429,7.63155807831413,7.63155807836718,7.63155807838773,7.63155807836410,7.63155807840849,7.63155807836632,7.63155807836082,7.63155807831867,7.63155807835428,7.63155807833596,7.63155807830856,7.63155807831477,7.63155807841905,7.63155807839928,7.63155807834381,7.63155807836733,7.63155807846662,7.63155807836052,7.63155807829013,7.63155807834568,7.63155708346096,7.63155677456244,7.63155807840905,7.63155807840835,7.63155807827381,7.63155807838607,7.63155807836624,7.63155807833030,7.63155807831123,7.63155807843740,7.63155807829788,7.63155807833640,7.63155589979645,7.63155807836964,7.63155807833099,7.63155807841261,7.63155807837217,7.63155807831945,7.63155807839678,7.63155807829601,7.63155807837379,7.63155807834250,7.63155807839586,7.63155807826974,7.63155807827913)
DWm_LM=sort(DWm_LM)
DWm_LM=DWm_LM[4:49]
shapiro.test(DWm_LM)
## 
##  Shapiro-Wilk normality test
## 
## data:  DWm_LM
## W = 0.98495, p-value = 0.8085
qqnorm(DWm_LM)
qqline(DWm_LM)

boxplot(DWm_LM)

DWm_GN=c(7.63155807855386,7.63155807855440,7.63155807855163,7.63155807855579,7.63155807855457,7.63155807855383,7.63155807855432,7.63155807855375,7.63155807855543,7.63155807855077,7.63155807855165,7.63155807855527,7.63155807855245,7.63155807855466,7.63155807855493,7.63155807855279,7.63155807855614,7.63155807855254,7.63155807855162,7.63155807855264,7.63155807855289,7.63155807855838,7.63155807855402,7.63155807855450,7.63155807855446,7.63155807855524,7.63155807855050,7.63155807855395,7.63155807855239,7.63155807855513,7.63155807855390,7.63155807855545,7.63155807855367,7.63155807855378,7.63155807855306,7.63155807855361,7.63155807855339,7.63155807855552,7.63155807855640,7.63155807855323,7.63155807855424,7.63155807855749,7.63155807855207,7.63155807855578,7.63155807855226,7.63155807855490,7.63155807855284,7.63155807855438,7.63155807855265)
shapiro.test(DWm_GN)
## 
##  Shapiro-Wilk normality test
## 
## data:  DWm_GN
## W = 0.98887, p-value = 0.921
qqnorm(DWm_GN)
qqline(DWm_GN)

boxplot(DWm_GN, outline=FALSE)

boxplot(DWm_LM,DWm_GN, outline=FALSE)

#boxplot(DWk_LM/mean(DWk_LM), DWk_GN/mean(DWk_GN), DWm_LM/mean(DWm_LM), DWm_GN/mean(DWm_GN), outline=FALSE)

Nanofluido de 0.025%

NF25k_LM=c(0.835971219105113,0.835971219104454,0.835971219102989,0.835971219102786,0.835971219102371,0.835971219104022,0.835971219105196,0.835971219105062,0.835971219104857,0.835971219105743,0.835971219104934,0.835971219103612,0.835971219103310,0.835971219103912,0.835971219103637,0.835971219102691,0.835971219104740,0.835971219104826,0.835971219102397,0.835971219105016,0.835971219107224,0.835971219103970,0.835971219104057,0.835971219103577,0.835971219108419,0.835971219105849,0.835971219104566,0.835971219103020,0.835971219100035,0.835971219103989,0.835971219103342,0.835971219104110,0.835971219101927,0.835971219106412,0.835971219102072,0.835971219103453,0.835971219103495,0.835971219104372,0.835971219101924,0.835971219103748,0.835971219102896,0.835971219104342,0.835971219104457,0.835971219103644,0.835971219104485,0.835971219103136,0.835971219105076,0.835971219101117,0.835971219102671)
shapiro.test(NF25k_LM)
## 
##  Shapiro-Wilk normality test
## 
## data:  NF25k_LM
## W = 0.97687, p-value = 0.4422
qqnorm(NF25k_LM)
qqline(NF25k_LM)

boxplot(NF25k_LM)

#boxplot(NF25k_LM, outline=FALSE)
NF25k_GN=c(0.835971219114370,0.835971219114305,0.835971219114301,0.835971219114314,0.835971219114302,0.835971219114306,0.835971219114338,0.835971219114322,0.835971219114311,0.835971219114300,0.835971219114355,0.835971219114315,0.835971219114348,0.835971219114335,0.835971219114321,0.835971219114316,0.835971219114302,0.835971219114331,0.835971219114311,0.835971219114306,0.835971219114314,0.835971219114297,0.835971219114289,0.835971219114315,0.835971219114335,0.835971219114331,0.835971219114325,0.835971219114313,0.835971219114313,0.835971219114282,0.835971219114334,0.835971219114340,0.835971219114340,0.835971219114321,0.835971219114342,0.835971219114356,0.835971219114328,0.835971219114350,0.835971219114305,0.835971219114331,0.835971219114298,0.835971219114328,0.835971219114326,0.835971219114364,0.835971219114316,0.835971219114271,0.835971219114311,0.835971219114336,0.835971219114307)
shapiro.test(NF25k_GN)
## 
##  Shapiro-Wilk normality test
## 
## data:  NF25k_GN
## W = 0.98827, p-value = 0.9033
qqnorm(NF25k_GN)
qqline(NF25k_GN)

boxplot(NF25k_GN)

#boxplot(NF25k_GN, outline=FALSE)
boxplot(NF25k_LM,NF25k_GN, outline = FALSE)

NF25m_LM=c(23.6547989543050,23.6547989542801,23.6547989542248,23.6547989542172,23.6547989542016,23.6547989542638,23.6547989543081,23.6547989543031,23.6547989542954,23.6547989543288,23.6547989542982,23.6547989542484,23.6547989542369,23.6547989542597,23.6547989542492,23.6547989542135,23.6547989542909,23.6547989542942,23.6547989542025,23.6547989543014,23.6547989543847,23.6547989542619,23.6547989542652,23.6547989542470,23.6547989544299,23.6547989543328,23.6547989542844,23.6547989542260,23.6547989541133,23.6547989542625,23.6547989542381,23.6547989542671,23.6547989541848,23.6547989543541,23.6547989541902,23.6547989542423,23.6547989542439,23.6547989542770,23.6547989541846,23.6547989542534,23.6547989542213,23.6547989542759,23.6547989542803,23.6547989542496,23.6547989542814,23.6547989542304,23.6547989543037,23.6547989541542,23.6547989542128)
shapiro.test(NF25m_LM)
## 
##  Shapiro-Wilk normality test
## 
## data:  NF25m_LM
## W = 0.97686, p-value = 0.4419
qqnorm(NF25m_LM)
qqline(NF25m_LM)

boxplot(NF25m_LM)

#boxplot(NF25m_LM, outline=FALSE)
NF25m_GN=c(23.6547989546545,23.6547989546521,23.6547989546519,23.6547989546523,23.6547989546519,23.6547989546521,23.6547989546533,23.6547989546526,23.6547989546522,23.6547989546519,23.6547989546539,23.6547989546524,23.6547989546537,23.6547989546532,23.6547989546526,23.6547989546524,23.6547989546519,23.6547989546530,23.6547989546522,23.6547989546521,23.6547989546523,23.6547989546518,23.6547989546514,23.6547989546524,23.6547989546532,23.6547989546529,23.6547989546527,23.6547989546523,23.6547989546523,23.6547989546511,23.6547989546532,23.6547989546534,23.6547989546534,23.6547989546526,23.6547989546534,23.6547989546540,23.6547989546529,23.6547989546537,23.6547989546521,23.6547989546530,23.6547989546517,23.6547989546529,23.6547989546528,23.6547989546543,23.6547989546524,23.6547989546507,23.6547989546522,23.6547989546531,23.6547989546522)
shapiro.test(NF25m_GN)
## 
##  Shapiro-Wilk normality test
## 
## data:  NF25m_GN
## W = 0.98186, p-value = 0.6449
qqnorm(NF25m_GN)
qqline(NF25m_GN)

boxplot(NF25m_GN)

#boxplot(NF25m_GN, outline=FALSE)
boxplot(NF25m_LM,NF25m_GN, outline = FALSE)

#boxplot(NF25k_LM/mean(NF25k_LM), NF25k_GN/mean(NF25k_GN), NF25m_LM/mean(NF25m_LM), NF25m_GN/mean(NF25m_GN), outline=FALSE)

Nanofluido de 0.050%

NF50k_LM=c(0.518035472254952,0.518035472254767,0.518035512481385,0.518035472254571,0.518035491683804,0.518035472256482,0.518035472261777,0.518035560523880,0.518035472255654,0.518035472257677,0.518035513830693,0.518035472253396,0.518035457350870,0.518035472254571,0.518035472258333,0.518035472254982,0.518035516781287,0.518035472257362,0.518035472252814,0.518035472257101,0.518035586631146,0.518035472260461,0.518035472249015,0.518035472257965,0.518035472259163,0.518035557560165,0.518035472259275,0.518035485356912,0.518035427079156,0.518035472255543,0.518035472254842,0.518035442416179,0.518035472253628,0.518035472255700,0.518035481541121,0.518035472256137,0.518035472259382,0.518035472259506,0.518035472254972,0.518035472254553,0.518035472256126,0.518035472254056,0.518035472256313,0.518035472255810,0.518035525773881,0.518035459960199,0.518035515748259,0.518035472254210,0.518035472252265)
NF50k_LM=sort(NF50k_LM)
NF50k_LM=NF50k_LM[5:38]
shapiro.test(NF50k_LM)
## 
##  Shapiro-Wilk normality test
## 
## data:  NF50k_LM
## W = 0.97346, p-value = 0.5631
qqnorm(NF50k_LM)
qqline(NF50k_LM)

boxplot(NF50k_LM)

#boxplot(NF50k_LM, outline=FALSE)
NF50k_GN=c(0.518035472252518,0.518035472252497,0.518035472252463,0.518035472252512,0.518035472252482,0.518035472252502,0.518035472252444,0.518035472252508,0.518035472252495,0.518035472252523,0.518035472252474,0.518035472252488,0.518035472252465,0.518035472252512,0.518035472252475,0.518035472252443,0.518035472252522,0.518035472252441,0.518035472252389,0.518035472252429,0.518035472252373,0.518035472252376,0.518035472252519,0.518035472252482,0.518035472252490,0.518035472252379,0.518035472252476,0.518035472252506,0.518035472252388,0.518035472252529,0.518035472252507,0.518035472252479,0.518035472252328,0.518035472252493,0.518035472252515,0.518035472252491,0.518035472252429,0.518035472252504,0.518035472252421,0.518035472252527,0.518035472252494,0.518035472252442,0.518035472252420,0.518035472252450,0.518035472252539,0.518035472252477,0.518035472252443,0.518035472252406,0.518035472252497)
NF50k_GN=sort(NF50k_GN)
NF50k_GN=NF50k_GN[8:49]
shapiro.test(NF50k_GN)
## 
##  Shapiro-Wilk normality test
## 
## data:  NF50k_GN
## W = 0.95048, p-value = 0.0672
qqnorm(NF50k_GN)
qqline(NF50k_GN)

boxplot(NF50k_GN)

#boxplot(NF50k_GN, outline=FALSE)
boxplot(NF50k_LM,NF50k_GN, outline = FALSE)

NF50m_LM=c(43.7430972500750,43.7430972500680,43.7430987685506,43.7430972500606,43.7430979834792,43.7430972501327,43.7430972503327,43.7431005820687,43.7430972501015,43.7430972501779,43.7430988194843,43.7430972500162,43.7430966874715,43.7430972500606,43.7430972502026,43.7430972500762,43.7430989308632,43.7430972501659,43.7430972499943,43.7430972501561,43.7431015675704,43.7430972502829,43.7430972498508,43.7430972501887,43.7430972502339,43.7431004701929,43.7430972502382,43.7430977446492,43.7430955447693,43.7430972500973,43.7430972500709,43.7430961237139,43.7430972500250,43.7430972501031,43.7430976006111,43.7430972501198,43.7430972502423,43.7430972502469,43.7430972500757,43.7430972500599,43.7430972501193,43.7430972500412,43.7430972501263,43.7430972501074,43.7430992703181,43.7430967859693,43.7430988918685,43.7430972500470,43.7430972499735)
NF50m_LM=sort(NF50m_LM)
NF50m_LM=NF50m_LM[5:38]
shapiro.test(NF50m_LM)
## 
##  Shapiro-Wilk normality test
## 
## data:  NF50m_LM
## W = 0.97345, p-value = 0.5628
qqnorm(NF50m_LM)
qqline(NF50m_LM)

boxplot(NF50m_LM)

#boxplot(NF50m_LM, outline=FALSE)
NF50m_GN=c(43.7430972499831,43.7430972499824,43.7430972499811,43.7430972499828,43.7430972499818,43.7430972499825,43.7430972499804,43.7430972499827,43.7430972499823,43.7430972499834,43.7430972499815,43.7430972499820,43.7430972499811,43.7430972499829,43.7430972499815,43.7430972499803,43.7430972499832,43.7430972499802,43.7430972499783,43.7430972499798,43.7430972499777,43.7430972499778,43.7430972499831,43.7430972499818,43.7430972499821,43.7430972499780,43.7430972499815,43.7430972499827,43.7430972499782,43.7430972499836,43.7430972499827,43.7430972499817,43.7430972499760,43.7430972499822,43.7430972499830,43.7430972499821,43.7430972499797,43.7430972499826,43.7430972499794,43.7430972499835,43.7430972499822,43.7430972499803,43.7430972499795,43.7430972499806,43.7430972499839,43.7430972499816,43.7430972499804,43.7430972499790,43.7430972499824)
NF50m_GN=sort(NF50m_GN)
NF50m_GN=NF50m_GN[8:49]
shapiro.test(NF50m_GN)
## 
##  Shapiro-Wilk normality test
## 
## data:  NF50m_GN
## W = 0.95281, p-value = 0.08145
qqnorm(NF50m_GN)
qqline(NF50m_GN)

boxplot(NF50m_GN)

#boxplot(NF50m_GN, outline=FALSE)
boxplot(NF50m_LM,NF50m_GN, outline = FALSE)

#boxplot(NF50k_LM/mean(NF50k_LM), NF50k_GN/mean(NF50k_GN), NF50m_LM/mean(NF50m_LM), NF50m_GN/mean(NF50m_GN), outline=FALSE)
IC=t.test(DWk_GN,mu=mean(DWk_GN))
sprintf("%.20f",IC$conf.int)
## [1] "0.70320972786139568367" "0.70320972786142010857"
IC=t.test(DWk_LM,mu=mean(DWk_LM))
sprintf("%.20f",IC$conf.int)
## [1] "0.70320972785573743202" "0.70320972785645796677"
IC=t.test(DWm_GN,mu=mean(DWm_GN))
sprintf("%.20f",IC$conf.int)
## [1] "7.63155807855347667612" "7.63155807855440571075"
IC=t.test(DWm_LM,mu=mean(DWm_LM))
sprintf("%.20f",IC$conf.int)
## [1] "7.63155807833990085243" "7.63155807836710220471"
IC=t.test(NF25k_GN,mu=mean(NF25k_GN))
sprintf("%.20f",IC$conf.int)
## [1] "0.83597121911431504504" "0.83597121911432681340"
IC=t.test(NF25k_LM,mu=mean(NF25k_LM))
sprintf("%.20f",IC$conf.int)
## [1] "0.83597121910351568363" "0.83597121910436411607"
IC=t.test(NF25m_GN,mu=mean(NF25m_GN))
sprintf("%.20f",IC$conf.int)
## [1] "23.65479895465239579266" "23.65479895465285054001"
IC=t.test(NF25m_LM,mu=mean(NF25m_LM))
sprintf("%.20f",IC$conf.int)
## [1] "23.65479895424471123988" "23.65479895427674250641"
IC=t.test(NF50k_GN,mu=mean(NF50k_GN))
sprintf("%.20f",IC$conf.int)
## [1] "0.51803547225247381647" "0.51803547225249402253"
IC=t.test(NF50k_LM,mu=mean(NF50k_LM))
sprintf("%.20f",IC$conf.int)
## [1] "0.51803547225508395080" "0.51803547225687851530"
IC=t.test(NF50m_GN,mu=mean(NF50m_GN))
sprintf("%.20f",IC$conf.int)
## [1] "43.74309724998147430597" "43.74309724998222748127"
IC=t.test(NF50m_LM,mu=mean(NF50m_LM))
sprintf("%.20f",IC$conf.int)
## [1] "43.74309725007995552915" "43.74309725014771288443"