###-*- R -*- Macintosh Specific ----

.Library <- paste(R.home(), "library", sep=.Platform$file.sep)
invisible(.libPaths(NULL))
options(papersize = "a4")
options(device="macintosh")
options(editor="macintosh")
options(pager="macintosh")
options(unzip="internal")
options(mailer="none")

MacRoman <- 0:255

ISOLatin1 <- as.integer(c(0:126, 32, 32, 32, 32, 32, 32, 32, 32, 32,
32, 32, 32, 32, 32, 32, 32, 32, 245, 96, 171, 246, 247, 248, 249, 250,
172, 32, 251, 252, 32, 253, 254, 255, 32, 193, 162, 163, 32, 180, 32,
164, 172, 169, 187, 199, 194, 45, 168, 248, 161, 177, 32, 32, 171,
181, 166, 225, 252, 32, 188, 200, 32, 32, 32, 192, 203, 231, 229, 204,
128, 129, 174, 130, 233, 131, 230, 232, 237, 234, 235, 236, 32, 132, 241,
238, 239, 205, 133, 32, 175, 244, 242, 243, 134, 32, 32, 167, 136,
135, 137, 139, 138, 140, 190, 141, 143, 142, 144, 145, 147, 146, 148,
149, 32, 150, 152, 151, 153, 155, 154, 214, 191, 157, 156, 158, 159,
32, 32, 216))

WinAnsi <- as.integer(c(0:126, 32, 219, 32, 226, 196, 227, 201, 160,
224, 246, 228, 32, 220, 206, 32, 32, 32, 32, 212, 39, 210, 211, 165,
208, 209, 247, 170, 32, 221, 207, 32, 32, 217, 32, 193, 162, 163, 32,
180, 32, 164, 172, 169, 187, 199, 194, 45, 168, 248, 161, 177, 32, 32,
171, 181, 166, 225, 252, 32, 188, 200, 32, 32, 32, 192, 203, 231, 229,
204, 128, 129, 174, 130, 233, 131, 230, 232, 237, 234, 235, 236, 32, 132,
241, 238, 239, 205, 133, 32, 175, 244, 242, 243, 134, 32, 32, 167,
136, 135, 137, 139, 138, 140, 190, 141, 143, 142, 144, 145, 147, 146,
148, 149, 32, 150, 152, 151, 153, 155, 154, 214, 191, 157, 156, 158,
159, 32, 32, 216))