52
ANEXO B
Rotina para gerar a função de densidade bimodal proposta
##Rotina para gerar a função densidade Bimodal##
##Arquivo de dados##
setwd("/Documents and Settings/Usuario/Desktop/R-Rotinas Tese/")
dados<-read.table("dadosbrixtese.txt", h=T)
#O arquivo dados brixtese.txt é um arquivo de 620 linhas e 1
coluna com os dados do vetor
c(17.35,17.42,17.45,17.55,17.57,17.68,17.78,17.78,17.78,17.84,17.9
2,17.95,17.97,18.00,18.01,18.02,18.02,18.04,18.04,18.05,18.05,18.0
7,18.12,18.12,18.13,18.14,18.15,18.16,18.16,18.16,18.17,18.19,18.1
9,18.19,18.20,18.21,18.22,18.24,18.25,18.26,18.27,18.28,18.29,18.3
0,18.33,18.35,18.35,18.35,18.36,18.36,18.36,18.36,18.36,18.37,18.3
7,18.39,18.40,18.40,18.40,18.41,18.42,18.44,18.44,18.44,18.45,18.4
5,18.46,18.47,18.48,18.48,18.48,18.48,18.50,18.50,18.51,18.52,18.5
3,18.54,18.54,18.55,18.55,18.55,18.56,18.56,18.56,18.56,18.56,18.5
7,18.58,18.58,18.59,18.59,18.59,18.59,18.60,18.60,18.60,18.61,18.6
1,18.62,18.62,18.62,18.62,18.63,18.63,18.63,18.63,18.63,18.64,18.6
4,18.64,18.64,18.65,18.65,18.65,18.66,18.66,18.66,18.67,18.67,18.6
9,18.69,18.70,18.70,18.71,18.72,18.72,18.72,18.73,18.73,18.73,18.7
3,18.73,18.74,18.74,18.75,18.75,18.75,18.75,18.76,18.77,18.77,18.7
7,18.78,18.78,18.78,18.79,18.79,18.79,18.80,18.80,18.82,18.82,18.8
4,18.84,18.84,18.85,18.85,18.87,18.88,18.89,18.89,18.89,18.89,18.8
9,18.89,18.89,18.90,18.91,18.91,18.91,18.91,18.93,18.93,18.93,18.9
3,18.93,18.94,18.94,18.94,18.94,18.94,18.94,18.94,18.94,18.95,18.9
5,18.95,18.96,18.96,18.96,18.97,18.98,18.99,18.99,19.00,19.00,19.0
0,19.00,19.00,19.00,19.01,19.02,19.02,19.03,19.03,19.04,19.04,19.0
4,19.04,19.04,19.05,19.06,19.06,19.07,19.07,19.08,19.09,19.09,19.1
0,19.10,19.10,19.11,19.11,19.11,19.11,19.11,19.12,19.12,19.13,19.1
3,19.13,19.13,19.15,19.15,19.16,19.16,19.17,19.17,19.17,19.18,19.1
8,19.19,19.20,19.21,19.22,19.23,19.23,19.23,19.23,19.24,19.25,19.2
5,19.26,19.26,19.27,19.27,19.27,19.27,19.27,19.28,19.28,19.28,19.2
9,19.29,19.30,19.30,19.31,19.32,19.32,19.32,19.33,19.34,19.35,19.3
5,19.35,19.35,19.36,19.36,19.36,19.36,19.37,19.37,19.37,19.38,19.3
8,19.38,19.38,19.38,19.38,19.39,19.40,19.40,19.41,19.41,19.41,19.4
1,19.42,19.42,19.42,19.44,19.45,19.46,19.46,19.47,19.48,19.50,19.5
0,19.50,19.51,19.51,19.52,19.52,19.53,19.53,19.53,19.53,19.55,19.5
5,19.56,19.57,19.57,19.58,19.59,19.60,19.60,19.60,19.61,19.62,19.6
3,19.63,19.64,19.64,19.67,19.68,19.69,19.70,19.70,19.71,19.71,19.7
1,19.72,19.73,19.74,19.74,19.75,19.76,19.78,19.82,19.83,19.85,19.8
6,19.86,19.88,19.89,19.90,19.90,19.90,19.91,19.91,19.92,19.92,19.9
3,19.94,19.96,19.96,19.96,19.96,19.96,19.97,19.97,19.97,19.99,19.9
9,20.00,20.00,20.00,20.01,20.01,20.01,20.03,20.03,20.03,20.03,20.0
5,20.05,20.06,20.06,20.06,20.08,20.08,20.09,20.10,20.12,20.13,20.1
3,20.14,20.14,20.15,20.16,20.16,20.17,20.18,20.19,20.19,20.20,20.2
0,20.22,20.23,20.24,20.24,20.25,20.26,20.28,20.29,20.30,20.31,20.3
1,20.33,20.34,20.35,20.35,20.36,20.36,20.37,20.37,20.40,20.41,20.4
3,20.43,20.46,20.47,20.49,20.53,20.55,20.56,20.59,20.61,20.63,20.6
3,20.63,20.68,20.70,20.73,20.74,20.76,20.76,20.77,20.78,20.81,20.8