plot(replace(day, is.list(index(lin)), coredata(lin)))

	[[alternative HTML version deleted]]

