# list of temperature data for Gujranwala city
G <- mapply(function(low, high) list(c(low, high)),
citytemp$Gujranwala_Low,
citytemp$Gujranwala_High)
# Neutrosophic mean and standard deviation of temperature data for Gujranwala city
nmean(G)
nstd(G)
Run the code above in your browser using DataLab